home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 12 / Cream of the Crop 12 (Part II) / Cream of the Crop 12 (Part II).iso / OS2 / FCHEK284.ZIP / test / do_enddo.f < prev    next >
Encoding:
Text File  |  1994-11-06  |  440 b   |  20 lines
  1. c  VAX-compatible fortran: underscores & do-enddo
  2.       subroutine abc
  3.       sum = 0.0
  4.       do i=1,100
  5.          sum = sum + i
  6.       enddo
  7.       print *,sum  !@#$*&
  8.      # ,i
  9.       other_sum = 1.0
  10.       do while(other_sum .lt. 2000)
  11.          other_sum = other_sum * 2.0
  12.       end do
  13. ! here we have a nonstandard comment
  14.       print *,other_sum
  15.       dowhile ( x .ne. (1,2))
  16.          x = 3.0
  17.       end do
  18.       end
  19.       include 'average.f'
  20.